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MODULE CREFCB ( ' ANGUAGE (BLIS$32), 
IDENT = "VOG-000" 
= 


“co 


BEGIN 


' 
RRR RA AEAAARERERAAA AREA EE AAA A EEE TEAEERAA ETAT AEE TEETER RAHA REARAAEEE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'e DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 

ie ALL RIGHTS RESERVED. 

i THIS SOFTWARE 1s FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 


!* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bene AND WITH THE 
'# INCLUSION OF THE ABOVE Tpit ad NOTICE. Ld SOFTWARE OR ANY OTHER 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i; CORPORATION. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


® 
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'w TRANSFERRED. * 
® 
* 
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*® 
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! FACILITY: FIIACP Structure Level 1 

' ABSTRACT: 


1 
! 
' 
1 
! 
! 
: These routines create and initialize a file control block 
from the given file header. 

' 

{ 

' 

i] 

i] 


i ENVIRONMENT : 
STARLET operating system, including privileged system services 


and internal exec routines. These routines must be called in 
kernel mode. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 14-Dec-1976 16:48 
MODIFIED BY: 


A0100 §©ACG0001 Andrew C. Goldstein am 1978 20:01 
Previous revision history moved to F11A 
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LIBRARY ‘SYSSLIBRARY:L 
REQUIRE ‘SRCS:FCPDEF.B 
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1 -1984 00:54:07 VAX-11 Bliss-32 
1 eats ri 99:3 725 DISKSVMSMASTER: 
GLOBAL ROUTINE CREATE_FCB (HEADER) = 
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' 
FUNCTIONAL DESCRIPTION: 


This routine creates an FCB and initializes it according to 
the given file header. 


CALLING SEQUENCE: 
CREATE _FCB (ARG1) 


INPUT PARAMETERS: 
ARG1: address of file header 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


ADDRESS OF FCB 


SIDE EFFECTS: 
FCB created and initialized 


HEADER : REF BBLOCK; ! file header argument 
LOCAL 
FCB : REF BBLOCK; ! address of FCB created 
EXTERNAL ROUTINE , 

ALLOCATE, ! allocate dynamic memory 
INIT_FCB; ! initialize contents of FCB 


' Allocate an FCB sized and typed block. Then use the common rovtine 
' to init it. 


! 

FCB = ALLOCATE (FCBSC_LENGTH, FCB_TYPE); 

FCB FCBSL_WLFL = FCBTFCBSL UL J; ! init null window List 
FCBCFCBSL~WLBL) = FCBCFCBSL_WLFLJ:; ra 

FCBCFCB$L_STVBN) = 1; ' init start VBN to 1 
INIT_FCB %.FCB, .HEADER); 

RETURN .FCB; 
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END; ! end of routine CREATE_FCB 
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44 bytes, 


; Routine Size: 


; 
CREFCB 16-Sep-1986 00:54:07 -VAX-11 BLiss-32 v4.0-742 Pose S| 
y0e~500 ae tiae ts rR ee a PS Pre oe 


; } 5 it } GLOBAL ROUTINE UPDATE_FCB (HEADER) : NOVALUE = : 
. Sy 5 4 § 1 !44 : 
> 128 440 1! e 
3 : 2 Qed ! FUNCTIONAL DESCRIPTION: ‘ 
s 435) 108 1! This routine updates the file attributes of the file's priaery FCB, : 
2 ¢ 04644 1! if any, with the file attributes of the given header. The file size . 
a 445 1! is preserved. 

3 155 447 1! 

3; 3 448 1 ! CALLING SEQUENCE: 

ae 449 1! UPDATE_FCB (ARG1) 

; «138 450 1! 

; 139 0451 1 ! INPUT PARAMETERS: : 

: 140 Bees 1! ARG1: address of file header 

3: 141 0455 1! 

; 148 0454 1 | IMPLICIT INPUTS: | 

; «14 0455 1! NONE 

; 144 0456 1! 

; 145 0457 1 ! OUTPUT PARAMETERS: 

; 146 0458 1! NONE 

; «147 0459 1! 

3; «148 0460 1 ! IMPLICIT OUTPUTS: | 

; (149 0461 1! PRIMARY_FCB: address of file FCB or 0 | 

3; 190 0462 1! 

3 699) 0465 1 ! ROUTINE VALUE: | 

; 136 0464 1! NONE 

; 0465 1! 

3: «154 0466 1 ! SIDE EFFECTS: : 

s 135 0467 1! FCB is updated if it exists 

: 156 0468 1 } 

es 0469 1 !-- 

; 158 0470 1 

; iW 0471 BEGIN 

; 160 047 

; «161 047 MAP 

3 166 0474 HEADER : REF BBLOCK; ! file header arg 

; 6 0475 

3; 164 0476 LOCAL 

; 165 0477 FCB : REF BBLOCK, ! Local pointer to FCB 

; 166 0478 MAP_AREA : REF BBLOCK, ! pointer to header map area 

; 4 bene MAP_POINTER : REF BBLOCK; ! pointer to scan map 

; 

3; 169 Bi EXTERNAL 

3: 170 04 $ PRIMARY_FCB : REF BBLOCK, ! FCB of file in process 

3; Wi 48 HEADER_CBN; ' LBN of file header 

: 7 484 

; WZ 0485 

3. «174 04 $ FCB = .PRIMARY_ FCB; 

3: «175 4 IF .FCB EQL 0 THEN RETURN; 

3: 176 8 

3; 77 ri ‘ | 

; 178 490 ! Get the known constants and the simple stuff from the file header i | 

3 +4 432 (i.e., header LBN, file ID, starting VBN, file owner and file protection). 

° H | 

; «181 049 


6. 


MASTER:CFIIA.SRCICREFCB.B32;1 > (3). 
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Liss-32 V4.0-742 


ow 


os 
ES 


2 is contiguous. 


J; 
! assume non-contiguous file 


Ake, FFBYTE) EQL 0 


F 
WEFBLK] - 1; 


p area. Get the starting LBN if the f 
MPOFFSETJ*2; 


POINTERS; 
$B_EX_SEGNUM 


C 
1 


t 
“MAP_AREA 


FCBSL_EFBL 
MAP 


«HEADER + .HEADE 


per 
' Now scan the ma 


MAP-POINTER = 
FCBEFCB$W_SEGN) = 


AND .BBL 
FCBCFCBSL 


THEN FCB 


BA bh ke hk 


Se el eel el el ee eel el el ol el el ol ee a a a at aa alae) 


T16) 


atrite = 0; 
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FHISV_CON 


LBNJ; ! and high order 


et low order LBN 


FM1$W LOWLBNI; ! q 
= .MAP_POINTERCFM1$B_HIG 


STLBN] = ne Pointe 


C_STLBNJ)<16, 


(F CBCF CBS 
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! end of routine UPDATE_FCB 
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ENTRY UPDATE 
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MAP_AREA 
AP_POINTER 


R3) 


Vv vvoyr-—O- #8 


18: 


00006 
00 
1A 


1 +4 VAX-11 Bliss-32 V4.0-742 
1 :25 D1 SKSVMEMASTERS CF11A.SRCICREFCB.B32; yy 
2A A 61 98 0004 (MAP_AREA), 42(FCB) 
30 A if: 0059 4 4 
Oc OA 5 5 12(R3) 
09 18 00058 BGE 3 
Oo A 02 =A 35 Been (MAP_POINTER), 48(FCB) 
§ A 6 OSF MOV (MAP_POINTER), 50(FCB) 
A 4 Di B83 3$ CMPL (R4), 56(FCB) 
4 15 0006 BLEQ 4$ 
64 38 A2 00 S388 MOVL 56(FCB), (R4) 
04 6D 4$: RET 
; Routine Size: 110 bytes, Routine Base: $CODE$ + 002C 
14 0526 «(1 
315 0337 1 END 
16 0528 0 ELUDOM 
: PSECT SUMMARY 
3 Name Bytes Attributes 
: SCODES 154 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
Se ee ae ae er Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: ~$255$DUA28: CSYSLIBILIB.L32;1 18619 31 0 1000 00:01.9 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:CREFCB/OBJ=OBJ$:CREFCB MSRC$: CREF CB/UPDATE=(ENHS: CREF CB) 
3 Size: 154 code + 0 data bytes 
: Run Time: 0:08.3 
$ Fapsed Time: :25.9 
3; Lines/CPU Min: 830 
3 Lecenes/CPU-Nin: 17470 
3 ponecy Used: 102 pages 
; Compilation Complete 
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